REPL PAT_FILCOD WITH A->PAT_FILCOD,PAT_NAME WITH A->PAT_NAME, PAT_F_NAME WITH A->PAT_F_NAME,PAT_M_INIT  WITH A->PAT_M_INIT
REPL PAT_DOB WITH A->PAT_DOB,PAT_NATIO WITH A->PAT_NATIO, PAT_SEX  WITH A->PAT_SEX, DATE_L_VIS  WITH A->DATE_CUR
REPL FEE_L_VIS WITH A->FEE_L_VIS, PAY_L_VIS   WITH A->PAY_L_VIS
return